www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\admin\admin_default.asp
<!--#include file="../Include/liangconn.asp"-->
<!--#include file="../Include/CheckLogin.asp"-->
<%
Session("_UserID") = 1
Session("_MagazineID") = 1
function object_install(strclassstring)
on error resume next
object_install=false
dim xtestobj
err=0
set xtestobj=server.createobject(strclassstring)
if err=0 then object_install=true
set xtestobj=nothing
err=0
end function
%>
<link href="images/admin.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<br/>
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<th height="24">【良精企业网站管理系统程序探针】</td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="forumrow"> 程序使用服务器环境要求（关键部分）： <br>
1、支持ASP：<font color="green"><b>√</b></font> 2、支持FSO：
<%
On Error Resume Next
Server.CreateObject("Scripting.FileSystemObject")
if err=0 then
response.write("<font color=green><b>√</b></font>")
else
response.write("<font color=red><b>×</b></font>")
end if
err=0
%>
3、支持ACCESS数据库：
<%
On Error Resume Next
Server.CreateObject("adodb.connection")
if err=0 then
response.write("<font color=green><b>√</b></font>")
else
response.write("<font color=red><b>×</b></font>")
end if
err=0
%>
<br>
如果以上3条都显示<font color="green"><b>√</b></font>,说明您的服务器支持我们的程序，如有问题可以与我们联系,我们将为您提供优质空间。www.liangjing.org QQ:82993936 Tel:010-81991660 </td>
</tr>
</table>
<br>
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#CCCCCC" style="margin:auto">
<tr bgcolor="#FFFFFF">
<th height="24" colspan="2">【服务器信息】</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="50%" height="24" class="forumrow">服务器操作系统：<%=Request.ServerVariables("OS")%></td>
<td width="50%" height="24" class="forumrowhighlight">网站信息服务软件和版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="50%" height="24" class="forumrow">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
<td width="50%" height="24" class="forumrowhighlight">脚本超时时间：<%=Server.ScriptTimeout%>秒</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24" class="forumrow">CDONTS组件支持：
<%
On Error Resume Next
Server.CreateObject("CDONTS.NewMail")
if err=0 then
response.write("<font color=green><b>√</b></font>")
else
response.write("<font color=red><b>×</b></font>")
end if
err=0
%></td>
<td height="24" class="forumrowhighlight">Jmail邮箱组件支持：
<%
On Error Resume Next
Server.CreateObject("JMail.SMTPMail")
if err=0 then
response.write("<font color=green><b>√</b></font>，支持")
else
response.write("<font color=red><b>×</b></font>，不支持")
end if
err=0
%></td>
</tr>
<tr bgcolor="#FFFFFF" colspan="2"><td height="27">服务器的有关参数</td><td></td></tr>
<tr bgcolor="#FFFFFF"><td width="26%" height="23" class="forumrow"> 服务器名：</td>
<td width="74%" height="23" class="forumrowhighlight">
<%response.write Request.ServerVariables("SERVER_NAME")%></td></tr>
<tr bgcolor="#FFFFFF"><td height="23" class="forumrow"> 服务器IP：</td>
<td height="23" class="forumrowhighlight">
<%response.write Request.ServerVariables("LOCAL_ADDR")%></td></tr>
<tr bgcolor="#FFFFFF"><td height="23" class="forumrow"> 服务器端口：</td>
<td height="23" class="forumrowhighlight">
<%response.write Request.ServerVariables("SERVER_PORT")%></td></tr>
<tr bgcolor="#FFFFFF"><td height="23" class="forumrow"> 服务器时间：</td>
<td height="23" class="forumrowhighlight">
<%response.write now%></td></tr>
<tr bgcolor="#FFFFFF"><td height="23" class="forumrow"> IIS版本：</td>
<td height="23" class="forumrowhighlight">
<%response.write Request.ServerVariables("SERVER_SOFTWARE")%></td></tr>
<tr bgcolor="#FFFFFF"><td height="23"> 服务器操作系统：</td>
<td height="23">
<%response.write Request.ServerVariables("OS")%></td></tr>
<tr bgcolor="#FFFFFF"><td height="23" class="forumrow"> 脚本超时时间：</td>
<td height="23" class="forumrowhighlight">
<%response.write Server.ScriptTimeout%> 秒</td></tr>
<tr bgcolor="#FFFFFF"><td height="23" class="forumrow"> 站点物理路径：</td>
<td height="23" class="forumrowhighlight">
<%response.write request.ServerVariables("APPL_PHYSICAL_PATH")%></td></tr>
<tr bgcolor="#FFFFFF"><td height="23" class="forumrow"> 服务器CPU数量：</td>
<td height="23" class="forumrowhighlight">
<%response.write Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td></tr>
<tr bgcolor="#FFFFFF"><td height="23" class="forumrow"> 服务器解译引擎：</td>
<td height="23" class="forumrowhighlight">
<%response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td></tr>
</table>
<br>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center">Copyright (c) 2008-2012 <a href="http://www.liangjing.org/ " title="：创造价值，成就你我！" target="_blank"><font face="Verdana, arial, helvetica, sans-serif" size="1"><b>www.liangjing<font color="#CC0000">.org</font></b></font></a> All Rights Reserved.</td>
</tr>
</table>